program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;


type
  pelement = ^element
  element = record
    value:integer;
    next:pelement;
   end;

var
  fin: textfile;


procedure Add (var haed:pelement; num:integer);
  var current:pelement;
  begin
  readln (fin, n);

begin
  assignfile (fin, 'input.txt');
  reset (fin);


end.
